home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / techno1a / tech2.frm < prev    next >
Text File  |  1999-09-14  |  3KB  |  87 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Our New Sponsor"
  4.    ClientHeight    =   7770
  5.    ClientLeft      =   3495
  6.    ClientTop       =   1260
  7.    ClientWidth     =   8340
  8.    Icon            =   "Tech2.frx":0000
  9.    LinkTopic       =   "Form2"
  10.    ScaleHeight     =   7770
  11.    ScaleWidth      =   8340
  12.    Begin VB.CommandButton Command1 
  13.       BackColor       =   &H00FFFFC0&
  14.       Caption         =   "About Us "
  15.       Height          =   375
  16.       Left            =   6120
  17.       MaskColor       =   &H008080FF&
  18.       TabIndex        =   3
  19.       Top             =   6840
  20.       UseMaskColor    =   -1  'True
  21.       Width           =   2055
  22.    End
  23.    Begin VB.TextBox Text1 
  24.       BackColor       =   &H80000004&
  25.       BorderStyle     =   0  'None
  26.       ForeColor       =   &H00800000&
  27.       Height          =   5535
  28.       Left            =   240
  29.       Locked          =   -1  'True
  30.       MultiLine       =   -1  'True
  31.       TabIndex        =   1
  32.       Text            =   "Tech2.frx":0442
  33.       Top             =   960
  34.       Width           =   7935
  35.    End
  36.    Begin VB.Line Line1 
  37.       X1              =   0
  38.       X2              =   8400
  39.       Y1              =   840
  40.       Y2              =   840
  41.    End
  42.    Begin VB.Image Image1 
  43.       Height          =   480
  44.       Left            =   0
  45.       Picture         =   "Tech2.frx":1012
  46.       Top             =   240
  47.       Width           =   480
  48.    End
  49.    Begin VB.Label Label1 
  50.       Caption         =   "To Subscribe to Tech Notes E-Mail Scottw68@msn.com.  Every Month there will be a new a new edition. "
  51.       Height          =   255
  52.       Left            =   240
  53.       TabIndex        =   0
  54.       Top             =   7440
  55.       Width           =   8055
  56.    End
  57.    Begin VB.Label Label2 
  58.       Alignment       =   2  'Center
  59.       Caption         =   "SineTech nuclear UPS systems"
  60.       BeginProperty Font 
  61.          Name            =   "OnStage"
  62.          Size            =   18
  63.          Charset         =   0
  64.          Weight          =   700
  65.          Underline       =   0   'False
  66.          Italic          =   -1  'True
  67.          Strikethrough   =   0   'False
  68.       EndProperty
  69.       Height          =   495
  70.       Left            =   600
  71.       TabIndex        =   2
  72.       Top             =   240
  73.       Width           =   7095
  74.    End
  75. End
  76. Attribute VB_Name = "Form2"
  77. Attribute VB_GlobalNameSpace = False
  78. Attribute VB_Creatable = False
  79. Attribute VB_PredeclaredId = True
  80. Attribute VB_Exposed = False
  81. Option Explicit
  82.  
  83. Private Sub Command1_Click()
  84. Form2.Hide
  85. Form3.Show
  86. End Sub
  87.